|
500
|
How can I add an extra button to a spin editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGrid.DefaultItemHeight = 20
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 4
var_Editor.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.ButtonWidth = 20
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
|
|
499
|
How can I remove or delete the buttons in the editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
var_Editor.RemoveButton("B1")
var_Editor.ButtonWidth = 20
var_Items = oGrid.Items
var_Items.AddItem("Text 1")
var_Items.AddItem("Text 2")
|
|
498
|
How can I hide the buttons in the editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGrid.DefaultItemHeight = 24
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
var_Editor.ButtonWidth = 0
var_Items = oGrid.Items
var_Items.AddItem("Text 1")
var_Items.AddItem("Text 2")
|
|
497
|
How can I change the width of the buttons in the editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGrid.DefaultItemHeight = 24
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
var_Editor.ButtonWidth = 24
var_Items = oGrid.Items
var_Items.AddItem("Text 1")
var_Items.AddItem("Text 2")
|
|
496
|
How can I add extra buttons to an editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.AddButton("B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2")
var_Editor.AddButton("B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3")
var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
var_Items = oGrid.Items
var_Items.AddItem("Text 1")
var_Items.AddItem("Text 2")
|
|
495
|
is there any function to specify the number of rows / items being visible in a drop down list editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Editor.DropDownRows = 1
var_Editor.PopupAppearance = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
494
|
How can I change the border for a drop down editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Editor1 as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
var_Editor.PopupAppearance = 1
oGrid.Items.AddItem("Today")
var_Items = oGrid.Items
' var_Items.CellEditor(var_Items.AddItem("Today"),0).EditType = 7
var_Editor1 = var_Items.CellEditor(var_Items.AddItem("Today"),0)
oGrid.TemplateDef = "dim var_Editor1"
oGrid.TemplateDef = var_Editor1
oGrid.Template = "var_Editor1.EditType = 7"
|
|
493
|
How can I remove a predefined item in a drop down editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 17
' var_Editor.Option(4) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(4) = True"
var_Editor.RemoveItem(255)
oGrid.Items.AddItem(255)
oGrid.Items.AddItem(65280)
|
|
492
|
How can I remove or clear all predefined items in a drop down editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 17
var_Editor.ClearItems()
var_Editor.AddItem(255,"Red Color")
oGrid.Items.AddItem(255)
|
|
491
|
How can I center the predefined items in a drop down editor editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Editor.DropDownAlignment = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
490
|
How can I right align the items in a drop down editor editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Editor.DropDownAlignment = 2
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
489
|
How can I specify the width of the drop down editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.DropDownAutoWidth = 0
var_Editor.DropDownMinWidth = 385
var_Editor.EditType = 17
var_Items = oGrid.Items
var_Items.AddItem(255)
var_Items.AddItem(65280)
|
|
488
|
How can hide the drop down button for an editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.DropDownVisible = .f.
var_Editor.EditType = 17
var_Items = oGrid.Items
var_Items.AddItem(255)
var_Items.AddItem(65280)
|
|
487
|
How can assign a tooltip to a drop down list editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
' var_Editor.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.ItemToolTip(1) = `This is a tooltip that shows when user hovers the <b>first</b> item`"
' var_Editor.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.ItemToolTip(2) = `This is a tooltip that shows when user hovers the <b>second</b> item`"
' var_Editor.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.ItemToolTip(3) = `This is a tooltip that shows when user hovers the <b>third</b> item`"
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
486
|
How can I lock, disable make read only an editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.Locked = .t.
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
485
|
How can I sort the items in a drop down list editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"Second item")
var_Editor.AddItem(2,"First item")
var_Editor.AddItem(3,"Third item")
var_Editor.SortItems(.t.)
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
484
|
How can I expand an item in the tree or a hierarchy of a drop down editor
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oGrid.Columns.Add("DropDown")
' var_Column.Def(17) = 1
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(17) = 1"
var_Editor = var_Column.Editor
var_Editor.EditType = 3
var_Editor.DropDownAutoWidth = 0
var_Editor.AddItem(1,"<b>CObject</b> class",1)
var_Editor.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
var_Editor.InsertItem(3,"<b>CWnd</b> class",3,2)
var_Editor.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
var_Editor.AddItem(4,"Exceptions",1)
var_Editor.InsertItem(7,"<b>System</b> Exceptions",2,4)
var_Editor.AddItem(5,"File Services",2)
' var_Editor.ExpandItem(1) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.ExpandItem(1) = True"
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
483
|
How can I display a tree or a hierarchy in a drop down editor
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oGrid.Columns.Add("DropDown")
' var_Column.Def(17) = 1
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(17) = 1"
var_Editor = var_Column.Editor
var_Editor.EditType = 3
var_Editor.DropDownAutoWidth = 0
var_Editor.AddItem(1,"<b>CObject</b> class",1)
var_Editor.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
var_Editor.InsertItem(3,"<b>CWnd</b> class",3,2)
var_Editor.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
var_Editor.AddItem(4,"Exceptions",1)
var_Editor.InsertItem(7,"<b>System</b> Exceptions",2,4)
var_Editor.AddItem(5,"File Services",2)
var_Editor.ExpandAll()
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
482
|
How can I look for items that includes the typed characters in a drop down list editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("DropDown").Editor
' var_Editor.Option(39) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(39) = 1"
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
481
|
How can I keep the selection background color while editor is visible
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelBackColor = 255
var_Editor = oGrid.Columns.Add("DropDown").Editor
' var_Editor.Option(45) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(45) = True"
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
480
|
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("DropDown").Editor
' var_Editor.Option(37) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(37) = 1"
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item",1)
var_Editor.AddItem(2,"Second item",3)
var_Editor.AddItem(3,"Third item",2)
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
479
|
How can I automatically drop down the list editor, when the user starts typing in the editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("DropDown").Editor
' var_Editor.Option(37) = -1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(37) = -1"
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item",1)
var_Editor.AddItem(2,"Second item",3)
var_Editor.AddItem(3,"Third item",2)
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
478
|
How can I add a Font editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Font").Editor.EditType = 10
var_Editor = oGrid.Columns.Add("Font").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 10"
oGrid.Items.AddItem("Tahoma")
|
|
477
|
How can I change the visual appearance for the buttons in the calculator editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(105) = oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(105) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\colorize.gif``)`)"
' var_Editor.Option(106) = oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(106) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)"
oGrid.Items.AddItem(10)
|
|
476
|
How can I customize the caption of buttons in the calculator editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(104) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(104) = `0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>`"
oGrid.Items.AddItem(10)
|
|
475
|
How can I customize the caption of buttons in the calculator editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(104) = "0;1;2;3;4;5;6;7;8;9"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(104) = `0;1;2;3;4;5;6;7;8;9`"
oGrid.Items.AddItem(10)
|
|
474
|
How can I specify the width and height of the buttons in the calculator editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(102) = 32
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(102) = 32"
' var_Editor.Option(103) = 32
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(103) = 32"
oGrid.Items.AddItem(10)
|
|
473
|
How can I change the "Cannot divide by zero" message that shows in the calculator editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(101) = "Divizion by zero"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(101) = `Divizion by zero`"
oGrid.Items.AddItem(10)
|
|
472
|
How can I enable or disable executing operations while the calculator editor is focused and closed
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 21
' var_Editor.Option(100) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(100) = False"
oGrid.Items.AddItem(10)
|
|
471
|
How can I add a calculator editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Slider").Editor.EditType = 21
var_Editor = oGrid.Columns.Add("Slider").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 21"
oGrid.Items.AddItem(10)
|
|
470
|
How can I edit a number between a range or interval
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
var_Editor.Numeric = -1
' var_Editor.Option(40) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(40) = 0"
' var_Editor.Option(41) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = 0"
' var_Editor.Option(43) = 5
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(43) = 5"
' var_Editor.Option(44) = 15
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(44) = 15"
oGrid.Items.AddItem(10)
|
|
469
|
How can I hide or show the spin in the slider or track bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
' var_Editor.Option(40) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(40) = 0"
oGrid.Items.AddItem(10)
|
|
468
|
How can I add a slider or track bar editor, with a fixed size
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
' var_Editor.Option(41) = 64
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = 64"
oGrid.Items.AddItem(10)
|
|
467
|
How can I add a slider or track bar editor, so it covers half of the cell
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
' var_Editor.Option(41) = -50
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = -50"
oGrid.Items.AddItem(10)
|
|
466
|
How can I add a slider or track bar editor, so it covers the full cell
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
' var_Editor.Option(41) = -100
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = -100"
oGrid.Items.AddItem(10)
|
|
465
|
How can I add a slider or track bar editor within a range or interval of numbers
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Spin from 5 to 15").Editor
var_Editor.EditType = 20
var_Editor.Numeric = -1
' var_Editor.Option(43) = 5
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(43) = 5"
' var_Editor.Option(44) = 15
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(44) = 15"
oGrid.Items.AddItem(10)
|
|
464
|
How can I add a slider or track bar editor within a range or interval of float numbers
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Spin from 5 to 15").Editor
var_Editor.EditType = 20
var_Editor.Numeric = 1
' var_Editor.Option(43) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(43) = 0"
' var_Editor.Option(44) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(44) = 1"
' var_Editor.Option(40) = "0.01"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(40) = `0.01`"
' var_Editor.Option(42) = "0.01"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(42) = `0.01`"
oGrid.Items.AddItem("0.3")
|
|
463
|
How can I add a spin editor within a range or interval of float numbers
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Spin from 5 to 15").Editor
var_Editor.EditType = 20
var_Editor.Numeric = 1
' var_Editor.Option(41) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = 0"
' var_Editor.Option(43) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(43) = 0"
' var_Editor.Option(44) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(44) = 1"
' var_Editor.Option(40) = "0.01"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(40) = `0.01`"
oGrid.Items.AddItem("0.3")
|
|
462
|
How can I add a spin editor within a range or interval of numbers
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Spin from 5 to 15").Editor
var_Editor.EditType = 20
var_Editor.Numeric = -1
' var_Editor.Option(41) = 0
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(41) = 0"
' var_Editor.Option(43) = 5
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(43) = 5"
' var_Editor.Option(44) = 15
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(44) = 15"
oGrid.Items.AddItem(10)
|
|
461
|
How can I add a slider or track bar editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Slider").Editor.EditType = 20
var_Editor = oGrid.Columns.Add("Slider").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 20"
oGrid.Items.AddItem(10)
|
|
460
|
I have check box column, but the check-boxes looks disabled. What can I do
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Check").Editor
var_Editor.EditType = 19
' var_Editor.Option(17) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(17) = 1"
var_Items = oGrid.Items
var_Items.AddItem(.f.)
var_Items.AddItem(.t.)
var_Items.AddItem(.f.)
|
|
459
|
How do I add check box column, so the cell value is changed as I click the cells
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.MarkSearchColumn = .f.
var_Column = oGrid.Columns.Add("C")
var_Column.Width = 18
var_Column.AllowSizing = .f.
var_Editor = var_Column.Editor
var_Editor.EditType = 19
' var_Editor.Option(17) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(17) = 1"
oGrid.Columns.Add("Text")
var_Items = oGrid.Items
' var_Items.CellValue(var_Items.AddItem(.f.),1) = "Check 1"
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellValue(AddItem(False),1) = `Check 1`"
' var_Items.CellValue(var_Items.AddItem(.t.),1) = "Check 2"
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellValue(AddItem(True),1) = `Check 2`"
' var_Items.CellValue(var_Items.AddItem(.f.),1) = "Check 3"
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellValue(AddItem(False),1) = `Check 3`"
|
|
458
|
How do I add check box column, so the cell value is changed as I click the cells
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Check").Editor.EditType = 19
var_Editor = oGrid.Columns.Add("Check").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 19"
var_Items = oGrid.Items
var_Items.AddItem(.f.)
var_Items.AddItem(.t.)
var_Items.AddItem(.f.)
|
|
457
|
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 18
' var_Editor.Option(9) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(9) = False"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
456
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 18
' var_Editor.Option(2) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(2) = True"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
455
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 18
' var_Editor.Option(1) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(1) = True"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
454
|
How can I specify the width or the height for a drop down memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 18
' var_Editor.Option(7) = 256
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(7) = 256"
' var_Editor.Option(8) = 64
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(8) = 64"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
453
|
How do I add a drop down memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Edit").Editor.EditType = 18
var_Editor = oGrid.Columns.Add("Edit").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 18"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
452
|
How do I add a color list editor with my own or custom colors
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 17
' var_Editor.Option(4) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(4) = True"
var_Editor.ClearItems()
var_Editor.AddItem(255,"Red Color")
var_Editor.AddItem(16711680,"Blue Color")
var_Editor.AddItem(65280,"Green Color")
oGrid.Items.AddItem(255)
|
|
451
|
How do I add a color list editor with my own or custom colors
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 17
var_Editor.ClearItems()
var_Editor.AddItem(255,"Red Color")
var_Editor.AddItem(16711680,"Blue Color")
var_Editor.AddItem(65280,"Green Color")
oGrid.Items.AddItem(255)
|
|
450
|
How can I show the color's name in a color list editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 17
' var_Editor.Option(4) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(4) = True"
oGrid.Items.AddItem(255)
|
|
449
|
How do I add a color list editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Color").Editor.EditType = 17
var_Editor = oGrid.Columns.Add("Color").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 17"
oGrid.Items.AddItem(255)
|
|
448
|
How can I access my own custom or ActiveX editor
Dim oGrid as P
Dim var_Calendar as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.DrawGridLines = -1
oGrid.DefaultItemHeight = 128
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 16
var_Editor.UserEditor("MSCAL.Calendar","")
var_Calendar = var_Editor.UserEditorObject
var_Calendar.BackColor = 16777215
var_Calendar.GridCellEffect = 0
var_Calendar.ShowTitle = .f.
var_Calendar.ShowDateSelectors = .f.
var_Items = oGrid.Items
var_Items.AddItem("MSCal.Calendar")
var_Items.AddItem("MSCal.Calendar")
|
|
447
|
How can I add my own custom or ActiveX editor
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.DrawGridLines = -1
oGrid.DefaultItemHeight = 128
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 16
var_Editor.UserEditor("MSCAL.Calendar","")
var_Items = oGrid.Items
var_Items.AddItem("MSCal.Calendar")
var_Items.AddItem("MSCal.Calendar")
|
|
446
|
How can I add a hyperlink editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Shell.Execute").Editor.EditType = 15
var_Editor = oGrid.Columns.Add("Shell.Execute").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 15"
oGrid.Items.AddItem("http://www.exontrol.com")
oGrid.Items.AddItem("c:\")
|
|
445
|
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 14
var_Editor.AddItem(1,"The first item",1)
var_Editor.AddItem(2,"The second item",3)
var_Editor.AddItem(3,"The third item",2)
var_Items = oGrid.Items
var_Items.AddItem("The first item")
var_Items.AddItem("The third item")
|
|
444
|
How can I show or hide the rectangle arround progress bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
var_Editor = oGrid.Columns.Add("Progress").Editor
var_Editor.EditType = 13
' var_Editor.Option(13) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(13) = False"
oGrid.Items.AddItem(33)
|
|
443
|
How can I hide the caption / percent in the progress bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
var_Editor = oGrid.Columns.Add("Progress").Editor
var_Editor.EditType = 13
' var_Editor.Option(12) = -1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(12) = -1"
oGrid.Items.AddItem(33)
|
|
442
|
How can I align the caption in the center of the progress bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
var_Editor = oGrid.Columns.Add("Progress").Editor
var_Editor.EditType = 13
' var_Editor.Option(12) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(12) = 1"
oGrid.Items.AddItem(33)
|
|
441
|
How can I align the caption to the right in the progress bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
var_Editor = oGrid.Columns.Add("Progress").Editor
var_Editor.EditType = 13
' var_Editor.Option(12) = 2
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(12) = 2"
oGrid.Items.AddItem(33)
|
|
440
|
How can I change the background color for a progress bar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
var_Editor = oGrid.Columns.Add("Progress").Editor
var_Editor.EditType = 13
' var_Editor.Option(11) = 255
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(11) = 255"
oGrid.Items.AddItem(33)
|
|
439
|
How can I add a progress bar editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.SelForeColor = 0
oGrid.SelBackColor = 16777088
' oGrid.Columns.Add("Progress").Editor.EditType = 13
var_Editor = oGrid.Columns.Add("Progress").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 13"
oGrid.Items.AddItem(33)
|
|
438
|
How can I add a button editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Button").Editor.EditType = 12
var_Editor = oGrid.Columns.Add("Button").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 12"
oGrid.Items.AddItem("Just a text")
|
|
437
|
How can I show or hide the type of the OLE Object for Photo or a Picture editor
Dim h as N
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.ColumnAutoResize = .f.
var_Column = oGrid.Columns.Add("Photo")
var_Column.Width = 74
var_Editor = var_Column.Editor
var_Editor.EditType = 11
' var_Editor.Option(52) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(52) = False"
var_Items = oGrid.Items
h = var_Items.AddItem()
' var_Items.CellValue(h,0) = oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
oGrid.TemplateDef = "dim var_Items,h"
oGrid.TemplateDef = var_Items
oGrid.TemplateDef = h
oGrid.Template = "var_Items.CellValue(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\sample.bmp``)`)"
' var_Items.ItemHeight(h) = 64
oGrid.TemplateDef = "dim var_Items,h"
oGrid.TemplateDef = var_Items
oGrid.TemplateDef = h
oGrid.Template = "var_Items.ItemHeight(h) = 64"
|
|
436
|
How can I add a Photo or a Picture editor
Dim h as N
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Photo").Editor.EditType = 11
var_Editor = oGrid.Columns.Add("Photo").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 11"
var_Items = oGrid.Items
h = var_Items.AddItem()
' var_Items.CellValue(h,0) = oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
oGrid.TemplateDef = "dim var_Items,h"
oGrid.TemplateDef = var_Items
oGrid.TemplateDef = h
oGrid.Template = "var_Items.CellValue(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\sample.bmp``)`)"
' var_Items.ItemHeight(h) = 64
oGrid.TemplateDef = "dim var_Items,h"
oGrid.TemplateDef = var_Items
oGrid.TemplateDef = h
oGrid.Template = "var_Items.ItemHeight(h) = 64"
|
|
435
|
How can I hide or show the "System" page in the color editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 9
' var_Editor.Option(6) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(6) = False"
oGrid.Items.AddItem(255)
|
|
434
|
How can I hide or show the "Palette" page in the color editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Color").Editor
var_Editor.EditType = 9
' var_Editor.Option(5) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(5) = False"
oGrid.Items.AddItem(255)
|
|
433
|
How do I add a color editor
Dim oGrid as P
Dim var_Editor as local
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Color").Editor.EditType = 9
var_Editor = oGrid.Columns.Add("Color").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 9"
oGrid.Items.AddItem(255)
|
|
432
|
How do I change the masking character
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Mask").Editor
var_Editor.EditType = 8
var_Editor.Mask = "###"
var_Editor.MaskChar = 48
oGrid.Items.AddItem("")
|
|
431
|
How do I mask an IP
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("IP").Editor
var_Editor.EditType = 8
var_Editor.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
oGrid.Items.AddItem("1.2.3.4")
|
|
430
|
How do I add a mask editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Mask").Editor
var_Editor.EditType = 8
var_Editor.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
oGrid.Items.AddItem("1.2.3.4")
|
|
429
|
How to show or hide the week numbers header in a drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(47) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(47) = True"
oGrid.Items.AddItem("Today")
|
|
428
|
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(35) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(35) = False"
oGrid.Items.AddItem("Today")
|
|
427
|
How do highlight the "Today" date is the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(34) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(34) = True"
oGrid.Items.AddItem("Today")
|
|
426
|
How do I show or hide the "Today" button is the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(33) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(33) = False"
oGrid.Items.AddItem("Today")
|
|
425
|
How to specify the first day of the week in the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(32) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(32) = 1"
oGrid.Items.AddItem("Today")
|
|
424
|
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(31) = "Du Lu Ma Mi Jo Vi Si"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(31) = `Du Lu Ma Mi Jo Vi Si`"
oGrid.Items.AddItem("Today")
|
|
423
|
How can I change the name of the months in the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(30) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(30) = `Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre`"
oGrid.Items.AddItem("Today")
|
|
422
|
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
Dim oGrid as P
Dim var_Editor as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(29) = "Azi"
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(29) = `Azi`"
oGrid.Items.AddItem("Today")
|
|
421
|
How can allow empty date to drop down date picker control or a calendar control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Date").Editor
var_Editor.EditType = 7
' var_Editor.Option(14) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(14) = True"
var_Items = oGrid.Items
var_Items.AddItem("Today")
var_Items.AddItem("")
var_Items.AddItem("Today")
|
|
420
|
How can I a drop down date picker control or a calendar control
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Date").Editor.EditType = 7
var_Editor = oGrid.Columns.Add("Date").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 7"
var_Items = oGrid.Items
var_Items.AddItem("Today")
|
|
419
|
How can I have an OR combination of my bit values, something like a check-box list editor
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Column = oGrid.Columns.Add("CkeckList")
' var_Column.Def(17) = 1
oGrid.TemplateDef = "dim var_Column"
oGrid.TemplateDef = var_Column
oGrid.Template = "var_Column.Def(17) = 1"
var_Editor = var_Column.Editor
var_Editor.EditType = 6
var_Editor.AddItem(1,"Bit <b>1</b>")
var_Editor.AddItem(2,"Bit <b>2</b>")
var_Editor.AddItem(4,"Bit <b>3</b>")
var_Editor.AddItem(8,"Bit <b>4</b>")
var_Editor.AddItem(16,"Bit <b>5</b>")
var_Editor.AddItem(32,"Bit <b>6</b>")
var_Editor.AddItem(64,"Bit <b>7</b>")
var_Editor.AddItem(128,"Bit <b>8</b>")
var_Items = oGrid.Items
var_Items.AddItem(112)
var_Items.AddItem(2)
|
|
418
|
How do I stop resizing the memo or a multiple lines edit control, while the user types
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 5
' var_Editor.Option(3) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(3) = False"
' var_Editor.Option(1) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(1) = True"
' var_Editor.Option(2) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(2) = True"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
417
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 5
' var_Editor.Option(1) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(1) = True"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
416
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 5
' var_Editor.Option(2) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(2) = True"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
415
|
How do I add a memo or a multiple lines edit control
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Edit").Editor.EditType = 5
var_Editor = oGrid.Columns.Add("Edit").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 5"
var_Items = oGrid.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f.
oGrid.TemplateDef = "dim var_Items"
oGrid.TemplateDef = var_Items
oGrid.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False"
|
|
414
|
How to specify the proposed change when the user clicks a spin control.
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 4
var_Editor.Numeric = -1
' var_Editor.Option(40) = 10
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(40) = 10"
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(10)
var_Items.AddItem(20)
|
|
413
|
How do I add a spin editor that allows only integer values
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 4
var_Editor.Numeric = -1
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
412
|
How do I add a spin editor
Dim oGrid as P
Dim var_Editor as local
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
' oGrid.Columns.Add("Edit").Editor.EditType = 4
var_Editor = oGrid.Columns.Add("Edit").Editor
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.EditType = 4"
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
411
|
How do I specify in a drop down list editor, that I do not want to have predefined icon
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"The first item",1)
var_Editor.AddItem(2,"The second item",3)
var_Editor.AddItem(3,"The third item",2)
' var_Editor.Option(28) = .f.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(28) = False"
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
410
|
How do I add a drop down editor, that allows only predefined values
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Editor = oGrid.Columns.Add("DropDown").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"The first item",1)
var_Editor.AddItem(2,"The second item",3)
var_Editor.AddItem(3,"The third item",2)
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
409
|
How to allow the editor to work on insert or overtype mode
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
' var_Editor.Option(200) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(200) = True"
' var_Editor.Option(201) = .t.
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(201) = True"
var_Items = oGrid.Items
var_Items.AddItem("000")
var_Items.AddItem("111")
var_Items.AddItem("222")
|
|
408
|
How to set foreground color for a locked, or read only edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.Locked = .t.
' var_Editor.Option(51) = 8421504
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(51) = 8421504"
var_Items = oGrid.Items
var_Items.AddItem("000")
var_Items.AddItem("111")
var_Items.AddItem("222")
|
|
407
|
How to set background color for a locked, or read only edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.Locked = .t.
' var_Editor.Option(50) = 8421504
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(50) = 8421504"
var_Items = oGrid.Items
var_Items.AddItem("000")
var_Items.AddItem("111")
var_Items.AddItem("222")
|
|
406
|
How to set the number of characters selected, when an EditType editor is opened
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
' var_Editor.Option(49) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(49) = 1"
var_Items = oGrid.Items
var_Items.AddItem("000")
var_Items.AddItem("111")
var_Items.AddItem("222")
|
|
405
|
How to set the starting point of text selected, when an EditType editor is opened
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
' var_Editor.Option(48) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(48) = 1"
' var_Editor.Option(49) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(49) = 1"
var_Items = oGrid.Items
var_Items.AddItem("000")
var_Items.AddItem("111")
var_Items.AddItem("222")
|
|
404
|
How to specifiy the symbol that indicates the decimal values while editing a floating point number
Dim oGrid as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Float")
var_Column.FormatColumn = "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
var_Editor = var_Column.Editor
var_Editor.EditType = 1
var_Editor.Numeric = 2
' var_Editor.Option(46) = 44
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(46) = 44"
var_Items = oGrid.Items
var_Items.AddItem(0.12)
var_Items.AddItem(1)
var_Items.AddItem(2.45)
oGrid.EndUpdate()
|
|
403
|
How can I edit a float number
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.Numeric = 1
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
402
|
How can I edit a number
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.Numeric = -1
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
|
|
401
|
How do I limit the length of the text that the user may enter into an edit control
Dim oGrid as P
Dim var_Editor as P
Dim var_Items as P
oGrid = topparent:CONTROL_ACTIVEX1.activex
var_Editor = oGrid.Columns.Add("Edit").Editor
var_Editor.EditType = 1
' var_Editor.Option(36) = 1
oGrid.TemplateDef = "dim var_Editor"
oGrid.TemplateDef = var_Editor
oGrid.Template = "var_Editor.Option(36) = 1"
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
|